# === 太陽系::惑星::地球クラス
module ObjectiveKyusu
  module Cosmos
    module Galaxy
      module SolarSystem
        module Planet
          class Earth < ObjectiveKyusu::Cosmos::Galaxy::SolarSystem::Planet
            attr_accessor(
              :equatorial_radius, # 赤道半径
              :flat_rate, # 扁平率
              :pole_radius # 極半径
            )
            def initialize
              @equatorial_radius = 6378137 # m
              @flat_rate = Rational('1/298.257222101')
              @pole_radius = 6356752.314 # m
            end

            # === 衛星
            def satellites
              [ObjectiveKyusu::Galaxy::SolarSystem::Satellite::Moon.new]
            end
          end
        end
      end
    end
  end
end